/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / COM / Q-Z / Terminal 2.2.sit / Terminal 2.2 / Project / Sources / SendOptions.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 53 65 6e 64 4f 70 | 74 69 6f 6e 73 2e 63 00 |..SendOp|tions.c.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 07 a5 00 | 00 01 4c a5 9c bc 10 a5 |........|..L.....|
|00000060| 9c bc 10 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 00 98 00 00 |........|........|
|00000080| 2f 2a 0d 09 54 65 72 6d | 69 6e 61 6c 20 32 2e 32 |/*..Term|inal 2.2|
|00000090| 0d 09 22 53 65 6e 64 4f | 70 74 69 6f 6e 73 2e 63 |.."SendO|ptions.c|
|000000a0| 22 0d 2a 2f 0d 0d 23 69 | 66 64 65 66 20 54 48 49 |".*/..#i|fdef THI|
|000000b0| 4e 4b 5f 43 0d 23 69 6e | 63 6c 75 64 65 20 22 4d |NK_C.#in|clude "M|
|000000c0| 61 63 48 65 61 64 65 72 | 73 22 0d 23 65 6e 64 69 |acHeader|s".#endi|
|000000d0| 66 0d 23 69 66 64 65 66 | 20 61 70 70 6c 65 63 0d |f.#ifdef| applec.|
|000000e0| 23 70 72 61 67 6d 61 20 | 6c 6f 61 64 20 22 3a 28 |#pragma |load ":(|
|000000f0| 4f 62 6a 65 63 74 73 29 | 3a 4d 61 63 48 65 61 64 |Objects)|:MacHead|
|00000100| 65 72 73 4d 50 57 22 0d | 23 70 72 61 67 6d 61 20 |ersMPW".|#pragma |
|00000110| 73 65 67 6d 65 6e 74 20 | 4f 70 74 69 6f 6e 73 0d |segment |Options.|
|00000120| 23 65 6e 64 69 66 0d 0d | 23 69 6e 63 6c 75 64 65 |#endif..|#include|
|00000130| 20 22 4f 70 74 69 6f 6e | 73 2e 68 22 0d 23 69 6e | "Option|s.h".#in|
|00000140| 63 6c 75 64 65 20 22 53 | 74 72 69 6e 67 73 2e 68 |clude "S|trings.h|
|00000150| 22 0d 23 69 6e 63 6c 75 | 64 65 20 22 55 74 69 6c |".#inclu|de "Util|
|00000160| 69 74 69 65 73 2e 68 22 | 0d 23 69 6e 63 6c 75 64 |ities.h"|.#includ|
|00000170| 65 20 22 54 65 78 74 2e | 68 22 0d 23 69 6e 63 6c |e "Text.|h".#incl|
|00000180| 75 64 65 20 22 4d 61 69 | 6e 2e 68 22 0d 23 69 6e |ude "Mai|n.h".#in|
|00000190| 63 6c 75 64 65 20 22 50 | 72 6f 63 65 64 75 72 65 |clude "P|rocedure|
|000001a0| 2e 68 22 0d 0d 23 64 65 | 66 69 6e 65 20 42 5f 4f |.h"..#de|fine B_O|
|000001b0| 4b 09 09 09 31 09 09 2f | 2a 20 22 4f 6b 22 20 62 |K...1../|* "Ok" b|
|000001c0| 75 74 74 6f 6e 20 2a 2f | 0d 23 64 65 66 69 6e 65 |utton */|.#define|
|000001d0| 20 42 5f 43 41 4e 43 45 | 4c 09 09 32 09 09 2f 2a | B_CANCE|L..2../*|
|000001e0| 20 22 43 61 6e 63 65 6c | 22 20 62 75 74 74 6f 6e | "Cancel|" button|
|000001f0| 20 2a 2f 0d 23 64 65 66 | 69 6e 65 20 45 5f 50 52 | */.#def|ine E_PR|
|00000200| 4f 4d 50 54 09 09 33 09 | 09 2f 2a 20 57 61 69 74 |OMPT..3.|./* Wait|
|00000210| 20 61 66 74 65 72 20 65 | 61 63 68 20 6c 69 6e 65 | after e|ach line|
|00000220| 20 73 65 6e 74 20 2a 2f | 0d 23 64 65 66 69 6e 65 | sent */|.#define|
|00000230| 20 45 5f 4c 49 4e 45 5f | 44 45 4c 41 59 09 34 09 | E_LINE_|DELAY.4.|
|00000240| 09 2f 2a 20 44 65 6c 61 | 79 20 61 66 74 65 72 20 |./* Dela|y after |
|00000250| 65 61 63 68 20 6c 69 6e | 65 20 73 65 6e 74 20 2a |each lin|e sent *|
|00000260| 2f 0d 23 64 65 66 69 6e | 65 20 45 5f 43 48 41 52 |/.#defin|e E_CHAR|
|00000270| 5f 44 45 4c 41 59 09 35 | 09 09 2f 2a 20 44 65 6c |_DELAY.5|../* Del|
|00000280| 61 79 20 61 66 74 65 72 | 20 65 61 63 68 20 63 68 |ay after| each ch|
|00000290| 61 72 61 63 74 65 72 20 | 73 65 6e 74 20 2a 2f 0d |aracter |sent */.|
|000002a0| 23 64 65 66 69 6e 65 20 | 55 5f 54 49 54 4c 45 4c |#define |U_TITLEL|
|000002b0| 49 4e 45 09 09 36 09 09 | 2f 2a 20 55 6e 64 65 72 |INE..6..|/* Under|
|000002c0| 6c 69 6e 65 20 2a 2f 0d | 0d 2f 2a 20 2d 2d 2d 2d |line */.|./* ----|
|000002d0| 2d 20 54 45 58 54 20 66 | 69 6c 65 20 73 65 6e 64 |- TEXT f|ile send|
|000002e0| 20 6f 70 74 69 6f 6e 73 | 20 64 69 61 6c 6f 67 20 | options| dialog |
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000310| 2d 20 2a 2f 0d 0d 76 6f | 69 64 20 53 65 6e 64 4f |- */..vo|id SendO|
|00000320| 70 74 69 6f 6e 73 28 76 | 6f 69 64 29 0d 7b 0d 09 |ptions(v|oid).{..|
|00000330| 72 65 67 69 73 74 65 72 | 20 44 69 61 6c 6f 67 50 |register| DialogP|
|00000340| 74 72 20 64 69 61 6c 6f | 67 3b 0d 09 72 65 67 69 |tr dialo|g;..regi|
|00000350| 73 74 65 72 20 42 79 74 | 65 20 73 74 72 5b 32 35 |ster Byt|e str[25|
|00000360| 36 5d 3b 0d 09 73 68 6f | 72 74 20 6e 75 6d 62 65 |6];..sho|rt numbe|
|00000370| 72 3b 0d 0d 09 43 65 6e | 74 65 72 44 69 61 6c 6f |r;...Cen|terDialo|
|00000380| 67 28 27 44 4c 4f 47 27 | 2c 20 44 4c 4f 47 5f 53 |g('DLOG'|, DLOG_S|
|00000390| 45 4e 44 29 3b 0d 09 69 | 66 20 28 21 28 64 69 61 |END);..i|f (!(dia|
|000003a0| 6c 6f 67 20 3d 20 47 65 | 74 4e 65 77 44 69 61 6c |log = Ge|tNewDial|
|000003b0| 6f 67 28 44 4c 4f 47 5f | 53 45 4e 44 2c 20 30 2c |og(DLOG_|SEND, 0,|
|000003c0| 20 28 57 69 6e 64 6f 77 | 50 74 72 29 2d 31 4c 29 | (Window|Ptr)-1L)|
|000003d0| 29 29 0d 09 09 72 65 74 | 75 72 6e 3b 0d 09 53 65 |))...ret|urn;..Se|
|000003e0| 74 45 54 65 78 74 28 64 | 69 61 6c 6f 67 2c 20 45 |tEText(d|ialog, E|
|000003f0| 5f 50 52 4f 4d 50 54 2c | 20 53 65 74 74 69 6e 67 |_PROMPT,| Setting|
|00000400| 73 2e 70 72 6f 6d 70 74 | 29 3b 0d 09 4e 75 6d 54 |s.prompt|);..NumT|
|00000410| 6f 53 74 72 69 6e 67 28 | 53 65 74 74 69 6e 67 73 |oString(|Settings|
|00000420| 2e 6c 69 6e 65 64 65 6c | 61 79 2c 20 73 74 72 29 |.linedel|ay, str)|
|00000430| 3b 0d 09 53 65 74 45 54 | 65 78 74 28 64 69 61 6c |;..SetET|ext(dial|
|00000440| 6f 67 2c 20 45 5f 4c 49 | 4e 45 5f 44 45 4c 41 59 |og, E_LI|NE_DELAY|
|00000450| 2c 20 73 74 72 29 3b 0d | 09 4e 75 6d 54 6f 53 74 |, str);.|.NumToSt|
|00000460| 72 69 6e 67 28 53 65 74 | 74 69 6e 67 73 2e 63 68 |ring(Set|tings.ch|
|00000470| 61 72 64 65 6c 61 79 2c | 20 73 74 72 29 3b 0d 09 |ardelay,| str);..|
|00000480| 53 65 74 45 54 65 78 74 | 28 64 69 61 6c 6f 67 2c |SetEText|(dialog,|
|00000490| 20 45 5f 43 48 41 52 5f | 44 45 4c 41 59 2c 20 73 | E_CHAR_|DELAY, s|
|000004a0| 74 72 29 3b 0d 09 53 65 | 6c 49 54 65 78 74 28 64 |tr);..Se|lIText(d|
|000004b0| 69 61 6c 6f 67 2c 20 45 | 5f 50 52 4f 4d 50 54 2c |ialog, E|_PROMPT,|
|000004c0| 20 30 2c 20 33 32 37 36 | 37 29 3b 0d 09 53 65 74 | 0, 3276|7);..Set|
|000004d0| 55 73 65 72 49 74 65 6d | 28 64 69 61 6c 6f 67 2c |UserItem|(dialog,|
|000004e0| 20 55 5f 54 49 54 4c 45 | 4c 49 4e 45 2c 20 28 50 | U_TITLE|LINE, (P|
|000004f0| 72 6f 63 50 74 72 29 44 | 72 61 77 55 73 65 72 4c |rocPtr)D|rawUserL|
|00000500| 69 6e 65 29 3b 0d 09 53 | 68 6f 77 57 69 6e 64 6f |ine);..S|howWindo|
|00000510| 77 28 64 69 61 6c 6f 67 | 29 3b 0d 09 64 6f 20 7b |w(dialog|);..do {|
|00000520| 0d 09 09 4d 6f 64 61 6c | 44 69 61 6c 6f 67 28 4f |...Modal|Dialog(O|
|00000530| 75 74 6c 69 6e 65 46 69 | 6c 74 65 72 2c 20 26 6e |utlineFi|lter, &n|
|00000540| 75 6d 62 65 72 29 3b 0d | 09 09 73 77 69 74 63 68 |umber);.|..switch|
|00000550| 28 6e 75 6d 62 65 72 29 | 20 7b 0d 09 09 09 63 61 |(number)| {....ca|
|00000560| 73 65 20 42 5f 4f 4b 3a | 0d 09 09 09 09 7b 0d 09 |se B_OK:|.....{..|
|00000570| 09 09 09 09 6c 6f 6e 67 | 20 6c 69 6e 65 64 65 6c |....long| linedel|
|00000580| 61 79 2c 20 63 68 61 72 | 64 65 6c 61 79 3b 0d 0d |ay, char|delay;..|
|00000590| 09 09 09 09 09 47 65 74 | 45 54 65 78 74 28 64 69 |.....Get|EText(di|
|000005a0| 61 6c 6f 67 2c 20 45 5f | 4c 49 4e 45 5f 44 45 4c |alog, E_|LINE_DEL|
|000005b0| 41 59 2c 20 73 74 72 29 | 3b 0d 09 09 09 09 09 53 |AY, str)|;......S|
|000005c0| 74 72 69 6e 67 54 6f 4e | 75 6d 28 73 74 72 2c 20 |tringToN|um(str, |
|000005d0| 26 6c 69 6e 65 64 65 6c | 61 79 29 3b 0d 09 09 09 |&linedel|ay);....|
|000005e0| 09 09 69 66 20 28 6c 69 | 6e 65 64 65 6c 61 79 20 |..if (li|nedelay |
|000005f0| 3c 20 30 20 7c 7c 20 6c | 69 6e 65 64 65 6c 61 79 |< 0 || l|inedelay|
|00000600| 20 3e 20 33 30 30 29 20 | 7b 0d 09 09 09 09 09 09 | > 300) |{.......|
|00000610| 53 79 73 42 65 65 70 28 | 31 29 3b 0d 09 09 09 09 |SysBeep(|1);.....|
|00000620| 09 09 53 65 6c 49 54 65 | 78 74 28 64 69 61 6c 6f |..SelITe|xt(dialo|
|00000630| 67 2c 20 45 5f 4c 49 4e | 45 5f 44 45 4c 41 59 2c |g, E_LIN|E_DELAY,|
|00000640| 20 30 2c 20 33 32 37 36 | 37 29 3b 0d 09 09 09 09 | 0, 3276|7);.....|
|00000650| 09 09 6e 75 6d 62 65 72 | 20 3d 20 30 3b 0d 09 09 |..number| = 0;...|
|00000660| 09 09 09 09 62 72 65 61 | 6b 3b 0d 09 09 09 09 09 |....brea|k;......|
|00000670| 7d 0d 09 09 09 09 09 47 | 65 74 45 54 65 78 74 28 |}......G|etEText(|
|00000680| 64 69 61 6c 6f 67 2c 20 | 45 5f 43 48 41 52 5f 44 |dialog, |E_CHAR_D|
|00000690| 45 4c 41 59 2c 20 73 74 | 72 29 3b 0d 09 09 09 09 |ELAY, st|r);.....|
|000006a0| 09 53 74 72 69 6e 67 54 | 6f 4e 75 6d 28 73 74 72 |.StringT|oNum(str|
|000006b0| 2c 20 26 63 68 61 72 64 | 65 6c 61 79 29 3b 0d 09 |, &chard|elay);..|
|000006c0| 09 09 09 09 69 66 20 28 | 63 68 61 72 64 65 6c 61 |....if (|chardela|
|000006d0| 79 20 3c 20 30 20 7c 7c | 20 63 68 61 72 64 65 6c |y < 0 ||| chardel|
|000006e0| 61 79 20 3e 20 33 30 30 | 29 20 7b 0d 09 09 09 09 |ay > 300|) {.....|
|000006f0| 09 09 53 79 73 42 65 65 | 70 28 31 29 3b 0d 09 09 |..SysBee|p(1);...|
|00000700| 09 09 09 09 53 65 6c 49 | 54 65 78 74 28 64 69 61 |....SelI|Text(dia|
|00000710| 6c 6f 67 2c 20 45 5f 43 | 48 41 52 5f 44 45 4c 41 |log, E_C|HAR_DELA|
|00000720| 59 2c 20 30 2c 20 33 32 | 37 36 37 29 3b 0d 09 09 |Y, 0, 32|767);...|
|00000730| 09 09 09 09 6e 75 6d 62 | 65 72 20 3d 20 30 3b 0d |....numb|er = 0;.|
|00000740| 09 09 09 09 09 09 62 72 | 65 61 6b 3b 0d 09 09 09 |......br|eak;....|
|00000750| 09 09 7d 0d 09 09 09 09 | 09 47 65 74 45 54 65 78 |..}.....|.GetETex|
|00000760| 74 28 64 69 61 6c 6f 67 | 2c 20 45 5f 50 52 4f 4d |t(dialog|, E_PROM|
|00000770| 50 54 2c 20 73 74 72 29 | 3b 0d 09 09 09 09 09 54 |PT, str)|;......T|
|00000780| 65 78 74 73 65 6e 64 53 | 65 74 75 70 28 73 74 72 |extsendS|etup(str|
|00000790| 2c 20 6c 69 6e 65 64 65 | 6c 61 79 2c 20 63 68 61 |, linede|lay, cha|
|000007a0| 72 64 65 6c 61 79 29 3b | 0d 09 09 09 09 7d 0d 09 |rdelay);|.....}..|
|000007b0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 63 61 73 |...break|;....cas|
|000007c0| 65 20 42 5f 43 41 4e 43 | 45 4c 3a 0d 09 09 09 09 |e B_CANC|EL:.....|
|000007d0| 62 72 65 61 6b 3b 0d 09 | 09 7d 0d 09 7d 20 77 68 |break;..|.}..} wh|
|000007e0| 69 6c 65 20 28 6e 75 6d | 62 65 72 20 21 3d 20 42 |ile (num|ber != B|
|000007f0| 5f 4f 4b 20 26 26 20 6e | 75 6d 62 65 72 20 21 3d |_OK && n|umber !=|
|00000800| 20 42 5f 43 41 4e 43 45 | 4c 29 3b 0d 09 44 69 73 | B_CANCE|L);..Dis|
|00000810| 70 6f 73 44 69 61 6c 6f | 67 28 64 69 61 6c 6f 67 |posDialo|g(dialog|
|00000820| 29 3b 0d 7d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |);.}....|........|
|00000830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 1a | 00 00 00 1a 00 00 00 32 |........|.......2|
|00000890| 61 72 61 6d 73 5b 32 5d | 29 3b 0d 09 50 74 6f 43 |arams[2]|);..PtoC|
|000008a0| 73 74 72 28 28 42 79 74 | 65 20 2a 29 70 61 72 61 |str((Byt|e *)para|
|000008b0| 0d 53 65 6e 64 4f 70 74 | 69 6f 6e 73 2e 63 02 00 |.SendOpt|ions.c..|
|000008c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 a7 d3 7e 66 00 00 | 00 00 00 00 01 4c 2d 2d |....~f..|.....L--|
|00000900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000910| 2d 2d 2d 20 2a 2f 0d 0d | 73 74 61 74 69 63 20 49 |--- */..|static I|
|00000920| 4e 54 45 47 45 52 20 53 | 49 5f 74 69 6d 65 28 49 |NTEGER S|I_time(I|
|00000930| 4e 54 45 47 45 52 20 70 | 61 72 61 6d 73 5b 5d 29 |NTEGER p|arams[])|
|00000940| 0d 7b 0d 23 70 72 61 67 | 6d 61 20 75 6e 75 73 65 |.{.#prag|ma unuse|
|00000950| 64 28 70 61 72 61 6d 73 | 29 0d 09 72 65 74 75 72 |d(params|)..retur|
|00000960| 6e 20 54 69 6d 65 3b 0d | 7d 0d 0d 2f 2a 20 2d 2d |n Time;.|}../* --|
|00000970| 2d 2d 2d 20 64 61 74 65 | 28 73 65 63 6f 6e 64 73 |--- date|(seconds|
|00000980| 00 00 00 16 00 01 00 00 | 02 9b 00 00 02 a6 0b 53 |........|.......S|
|00000990| 65 6e 64 4f 70 74 69 6f | 6e 73 00 00 01 00 00 00 |endOptio|ns......|
|000009a0| 01 1a 00 00 00 1a 00 00 | 00 32 00 6e 83 a8 07 5a |........|.2.n...Z|
|000009b0| 00 00 00 1c 00 32 00 00 | 4d 50 53 52 00 00 00 0a |.....2..|MPSR....|
|000009c0| 03 ef ff ff 00 00 00 00 | 00 6e b3 f4 00 00 00 00 |........|.n......|
|000009d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+